#!/usr/bin/perl -wl
use strict;

print join "\n", map { secs2str( $_ ) } <DATA>;
exit( 0 );

{
    my( @div, @unit );
    BEGIN {
        @div= ( 60, 60, 24, 365 );
        @unit= qw( second minute hour day year );
    }
    sub secs2str {
        my( $left )= @_;
        my @val= (  map( {
            my $unit= $left;
            $left= int( $left / $_ );
            $unit -= $left * $_;
        } @div ),  $left  );
        @val= map {
            0 == $val[$_] ? ()
                : "$val[$_] $unit[$_]"
                  . ( 1 == $val[$_] ? "" : "s" )
        } reverse 0..$#val;
        return  0==@val ? "now"
                    : 1==@val ? $val[0]
                        : 2==@val ? join( " and ", @val )
                            : join ", ", @val[0..$#val-1],
                                         "and $val[-1]";
    }
}
__END__
0
1
10
100
1020
10000.5
100840
1000900
10000000
100000020.5
1000000000