die( "No such file" ) if ( ! -e "/home/test/perl.ppt" );