Select Code to Download

my @positions = (0);
open FILE, '<', 'file' or die $!;
while(<FILE>) {
    push @positions, tell FILE;
}

my $randData = do{ seek FILE, $positions[rand @positions], 0; <FILE>; 
+}