Here's a nice clean one:

use List::Util qw(shuffle);
use Tie::File;
tie @file, 'Tie::File', "file.txt" or die $!;
@file = shuffle @file;
[download]

-sam