--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/install	Thu Jul 11 21:57:11 2013 +0200
@@ -0,0 +1,23 @@
+#! /usr/bin/perl
+
+use 5.010;
+use strict;
+use warnings;
+
+die "$0: need filenames to install\n" if not @ARGV;
+
+install($_) foreach @ARGV;
+
+sub install {
+    my $file = shift;
+
+    local @ARGV = ($file);
+    my $destination = (map { /->\s*(\S+)/ } grep { /# ->/ } <>)[0];
+
+    die "No destination for $file\n" if not $destination;
+    say "$file\n => $destination";
+
+    system("scp", $file => $destination);
+    die if $?;
+    
+}