--- a/install	Mon Dec 15 08:17:27 2014 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,23 +0,0 @@
-#! /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 => $destination";
-
-    system("scp", $file => $destination);
-    die if $?;
-    
-}