#!/usr/bin/perl

$B = 'print "#!/usr/bin/perl\n\n" ;
print "\$B = \'$B\' ;\n" ;
print "$B\n" ;' ;
print "#!/usr/bin/perl\n\n" ;
print "\$B = '$B' ;\n" ;
print "$B\n" ;