#!c:\Perl\bin\Perl
                                    
print "\n Line from print_1.pl \n";
exec "print_2.pl";    
print "\n ERROR from print_1.pl: $! \n";

__END__

##</code><code>##

j:> print_1.pl    
j:> Line from print_1.pl
j:> ERROR from print_1.pl: Invalid arguement