perl使用sprintf格式化获得的本地时间

#!/usr/bin/perl -w
my $local_time=&GetTimestamp;
print "Local Time: $local_timen";
sub GetTimestamp
{
  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  $year=$year+1900;
  return $year .  sprintf('%02u%02u_%02u%02u%02u', $mon+1, $mday, $hour, $min, $sec);
}

#!/usr/bin/perl -w
use strict;

#my $date=localtime;
#print "$daten";

sub GetDateToday
{
  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  $year=$year+1900;
  return $year.'-'.sprintf('%02u-%02u', $mon+1, $mday);
}

my $cur_date=GetDateToday();
print "$cur_daten";
print "$^On";