Time difference calculation

my $difference = $nowTime - $fileTime;

my $seconds = $difference % 60;
$difference = ($difference - $seconds) / 60;
my $minutes = $difference % 60;
$difference = ($difference - $minutes) / 60;
my $hours = $difference % 24;
$difference = ($difference - $hours) / 24;
my $days = $difference % 7;
my $weeks = ($difference - $days) / 7;

print "$weeks\t$days\t$hours\t$minutes\t$seconds\n";