#!/usr/local/bin/perl -w
# Perl test program Fawlty2.pl

# This program does not run correctly - why?
        
print "This program converts a number of seconds"
            . " to weeks, days, hours, minutes and seconds.\n";
	
# Get input and convert to integers.
print "Number of seconds:  ";
$input = <>;
        
# Conversion
$seconds =      $totalSeconds % 60;
$totalMinutes = $totalSeconds / 60;
$minutes =      $totalMinutes % 60;
$totalHours =   $totalMinutes / 60;
$hours =        $totalHours   % 24;
$totalDays =    $totalHours   / 24;
$days =         $totalDays    /  7;
$weeks =        $totalDays    /  7;

print "Weeks   : $weeks\n";
print "Days    : $days\n";
print "Hours   : $hours\n";
print "Minutes : $minutes\n";
print "Seconds : "$seconds\n";