This is Bavaria, Germany!
#!/usr/bin/perl
use strict;
use warnings;
use File::Temp;
# XXXX is getting replaced by something
# which does not exist yet. Directory is cwd
my($fh,$filename) = File::Temp::tempfile('myapplic_XXXX');
print "temporary \$filename is $filename\n";
print ${fh} "Something of temporary value\n";
close $fh;
# Do something with the file
system "some_converter_program --input=$filename --output=real.pdf";
# file exists after ending of this program
# -> I have to delete it on my own
unlink $filename;