print "Input file names to be encrypted";
@files = <STDIN>;
foreach $file (@files) {
    print "Preforming sha1 on $file";
    system( "sha1sum $file > data" );
}