open( INPUT, $filename ) or die "Could not open $filename: $!";
# or
rename( $old, $new ) or die "Could not rename $old to $new: $!";