More simple challenge stuff. Converts age in years to age in seconds. Three kinds of years.
#!/usr/bin/perl
use warnings; use strict;
print "Enter your age: ";
my $age = <STDIN>;
my $regular = $age * 31536000;
my $julian = $age * 31557600;
my $gregorian = $age * 31556952;
print "You are $regular seconds old (365-day year)\n";
print "You are $julian seconds old (Julian year)\n";
print "You are $gregorian seconds old (Gregorian year)\n";