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