Select Code to Download

#!/usr/bin/perl -w
use Time::HiRes qw( time );
...
my $total = time() - $start;

print "$total Seconds Elapsed.\n";

[adamm@pepsi java_vs_perl]$ dd if=/dev/zero of=ten_meg_file.txt seek=1
+0 count=1 bs=1M
1+0 records in
...
0.321141004562378 Seconds Elapsed.
[adamm@pepsi java_vs_perl]$ perl -w cp.pl ten_meg_file.txt out
0.318119049072266 Seconds Elapsed.

import java.io.*;

...
    }
  }
}

[adamm@pepsi java_vs_perl]$ javac X.java 
[adamm@pepsi java_vs_perl]$ dd if=/dev/zero of=ten_meg_file__2.txt see
+k=10 count=1 bs=1M
...
[adamm@pepsi java_vs_perl]$ java X ten_meg_file__2.txt out__2
Time = 814
Buf Time = 779