Select Code to Download

#!/usr/bin/perl
use strict;
...

print "Estimated duration: $estimated_duration seconds\n";
print "Estimated finish time: $estimated_finish_time (if we start now)
+\n";

$ perl buk.pl 
Estimated duration: 19398 seconds
Estimated finish time: Tue Dec 29 16:22:14 2009 (if we start now)