Shell Programming and Scripting

#!/usr/bin/perl

my $day = @ARGV[2];
my $mon = @ARGV[1] -1;
my $year = @ARGV[0];

my $hour = @ARGV[3];
my $min = @ARGV[4];
my $sec = @ARGV[5];


use Time::Local;
my $time = timelocal($sec,$min,$hour,$day,$mon,$year);

my $hours = @ARGV[6];
@T=localtime($time+($hours * 3600));

if ($hours > 0)
{
printf("%02d/%02d/%02d %02d:%02d:%02d\n",$T[4]+1,$T[3],$T[5]+1900,$T[2],$T[1],$T[0])
}
elsif ($hours < 0)
{
printf("%02d/%02d/%02d %02d:%02d:%02d\n",$T[4]+1,$T[3],$T[5]+1900,$T[2],$T[1],$T[0])
}


bash-3.00$ ./conversion.pl 2013 03 21 11 15 10 120
03/26/2013 11:15:10
bash-3.00$ ./conversion.pl 2013 03 21 11 15 10 10
03/21/2013 21:15:10
bash-3.00$ ./conversion.pl 2013 03 21 11 15 10 -47
03/19/2013 12:15:10
bash-3.00$ ./conversion.pl 2013 03 21 11 15 10 -80
03/18/2013 03:15:10