String found where operator expected at date.pl line 1, near "1."-""
        (Missing operator before "-"?)
String found where operator expected at date.pl line 1, near "1900."\
n""
        (Missing operator before "\n"?)
syntax error at date.pl line 11, near "1."-""

print "$day\-".($month+1)."-".($year+1900)."\n";