if you use an open(File,$newfilename) || die "Can't create $newfilename: $!";
that should do it.
Ray