diff --git a/bin/pt-agent b/bin/pt-agent
index ba3b74ab..5110a7a9 100755
--- a/bin/pt-agent
+++ b/bin/pt-agent
@@ -7260,7 +7260,8 @@ sub send_data {
          while ( !$key ) {
             print `ls -l $data_file`;
             print "Send $data_file [Ynaq]: ";
-            $key = lc(<STDIN>);
+            $key = <STDIN>;
+            $key = lc(chomp($$key));
             last DATA_FILE if $key eq 'q'; 
             next DATA_FILE if $key eq 'n';
             last PROMPT    if $key eq 'y';