diff --git a/bin/pt-agent b/bin/pt-agent
index ec7daaec..a0a039c8 100755
--- a/bin/pt-agent
+++ b/bin/pt-agent
@@ -4962,7 +4962,6 @@ sub make_new_crontab {
          . " pt-agent --run-service "
          . $service->name;
       if ( $service->spool_schedule ) {
-         # TODO: test
          push @pt_agent_lines,
             $service->spool_schedule
             . " pt-agent --send-data "
@@ -5327,9 +5326,10 @@ sub get_uuid {
    return '123';
 }
 
+# TODO: use VersionCheck::get_versions().
 sub get_versions {
    return {
-      'Perl'                    => "5.10.0",
+      'Perl'                    => sprintf('%vd', $PERL_VERSION),
       'Percona::WebAPI::Client' => "$Percona::WebAPI::Client::VERSION",
    };
 }
diff --git a/t/pt-agent/init_agent.t b/t/pt-agent/init_agent.t
index 7526e0eb..7f86525d 100644
--- a/t/pt-agent/init_agent.t
+++ b/t/pt-agent/init_agent.t
@@ -90,7 +90,7 @@ is_deeply(
       hostname => `hostname`,
       versions => {
          'Percona::WebAPI::Client' => "$Percona::WebAPI::Client::VERSION",
-         'Perl'                    => sprintf '%vd', $PERL_VERSION,
+         'Perl'                    => sprintf('%vd', $PERL_VERSION),
       }
    },
    'Create new Agent'