$ perl -MTime::Piece -le " my $now = localtime; print $now; print $now + 60 * 30 "
Thu Aug 15 06:03:23 2013
Thu Aug 15 06:33:23 2013