linux~> perl -e 'my $a = time; sleep 9; my $b = time; print $b-$a;'