print $fh $_ while <$fd>;

##</code><code>##

use strict;
use warnings;
use Tie::File;

my $file = $ARGV[0]                or die "$0 Usage:\n\t$0 <file>\n\n";

tie my  @array, 'Tie::File', $file or die "Cannot tie file '$file': $!";
unshift @array, 'data';
untie   @array;