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

##</code><code>##

    Preforming sha1 on test1.dat


##</code><code>##

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

##</code><code>##

    $systemCommand = [sha1sum test.dat
     > data]