open my $inData, '<', $tmpfile or die "Can't open $tmpfile: $!";
while (defined (my $data = <$inData>)) {
    chomp $data;
    print $data;
}
close $inData;

print "\n";