Perlでパイプから受け取った内容を一時ファイルに書き出してほげほげする

tmp.pl

#!/usr/bin/perl -w

use strict;
use warnings;
use File::Temp qw(tempfile);

my $fh;
my $f;
unless ( -t STDIN) {
    ($fh, $f) = tempfile(
        CLEANUP => 1
    );
    while (<STDIN>) {
        print $fh $_;
    }
}

# $fにほげほげ
if ($f) {
    print $f;
}