my $place = " at $file line $line";

...
print ....., $place;