#!/usr/bin/perl -w
use strict;
use Filter::Handle;

local *OUTPUT;
open(OUTPUT, ">handle.txt") || die "Can't open: $!";

my $fh = \*OUTPUT;

my $f = Filter::Handle->new($fh,
    sub {
        my($file, $line) = (caller(1))[1,2];
        return sprintf "%s:%d - %s\n", $file, $line, @_;
});

print OUTPUT "Foo";
print OUTPUT "Bar";