$\="\n";
print $$;
if ( open PROG, '/home/userxyz/prog.pl' ) {
  undef $/;
  eval <PROG>;
  warn  $@   if $@;
  close PROG or die $!;
}
print $$;

##</code><code>##

#!/usr/bin/perl -w
use strict;
$|++;

$\="\n";
print $$;