Select Code to Download

use strict; use warnings;
#prints one line and bails out
...
close ARGV;
print '.',$_;
}

.#!/usr/bin/perl