Select Code to Download

    print "Preforming sha1 on $file";
    system( "sha1sum $file > data" );

    Preforming sha1 on test1.dat

    my $systemCommand = "sha1sum $file > data";
    print "\$systemCommand = [$systemCommand]\n";
    system( $systemCommand );

    $systemCommand = [sha1sum test.dat
     > data]