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