use File::Slurp "read_file";
my $data = read_file($tmpfile);
$data =~ tr/\r\n//d;