--- a/install	Thu Jul 11 23:25:42 2013 +0200
+++ b/install	Thu Jul 11 23:26:03 2013 +0200
@@ -15,7 +15,7 @@
     my $destination = (map { /->\s*(\S+)/ } grep { /# ->/ } <>)[0];
 
     die "No destination for $file\n" if not $destination;
-    say "$file\n => $destination";
+    say "$file => $destination";
 
     system("scp", $file => $destination);
     die if $?;