#!/usr/bin/perl
use strict;
use Date::Parse;
my $string = "9/1/2001";
my ($day,$month,$year) = (strptime($string))[3..5];
$month++;
$year+=1900;
my $new_date = join('-', $year, $month, $day);
print $new_date,$/;