$self->{tempfile} = File::Temp->new(UNLINK => 1, SUFFIX => '.tmp');
my $tmp = $self->{tempfile};
print $tmp "I am here";