$0 =~ /(.*)\.pl/;
	my $outname = "$1.pdf";

##</code><code>##

system $outname;