Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
my $end = new Benchmark;
my $diff = timediff($end, $start);
print "Time taken was ", timestr($diff, 'all'), " seconds";
  2. or download this
    #!/usr/bin/perl
use strict;
...
my $result = getOSType();

print $result;
  3. or download this
    #!/usr/bin/perl
use strict;
...
my $end = new Benchmark;
my $diff = timediff($end, $start);
print "Time taken was ", timestr($diff, 'all'), " seconds";