#!/usr/bin/perl

my $file="foobar";
open (FILE, $file) or
	die "Can't open $file: $!\n";
select((select(FILE), $/ = undef)[0]);
my $contents = <FILE>;
close (FILE);