Shell Programming and Scripting

#!/bin/perl -w
$yes=system("TZ=IST+24 date +%d-%m-%Y");
print "$yes\n";

#!/bin/perl -w
$yes=system("TZ=IST+24 date +%d-%m-%Y");
print "$yes";

16-07-2010
0

$ cat date.pl
#!/usr/bin/perl

use strict;
use warnings;
use POSIX qw/strftime/;

my $time1 = time();
my $time2 = time - ( 24 * 60 * 60 );

my $yes1 = strftime '%d-%m-%Y', localtime($time1);
my $yes2 = strftime '%d-%m-%Y', localtime($time2);

print "$yes1\n";
print "$yes2\n";
$ perl date.pl
19-07-2010
18-07-2010