Select Code to Download

use warnings;
use strict;
...
    print "Preforming sha1 on $file\n";
    system( "sha1sum $file >> data" );
}

code.pl file1 file2 file3