use warnings;
use strict;

for my $file (@ARGV) {
    print "Preforming sha1 on $file\n";
    system( "sha1sum $file >> data" );
}