perlでfileを変数に読込む処理をネットで探しても解説がメインでコレだといったものがなかったのでメモ

#!/usr/bin/perl

$file = '/tmp/test';
open my $fh, '<', $file
    or die $!;
my $content = do { local $/; <$fh> };
close $fh;
print $content;

もっとベターな書き方があれば教えてください