#!/usr/bin/perl

use strict;
use warnings;
use List::Util qw(shuffle);

my @offsets;

print STDERR "Scanning...";

open(IN, $ARGV[0]);
do { push @offsets, tell(IN) } while (<IN>);
close(IN);
pop @offsets;

print STDERR "Done. ($#offsets)\nScrambling...";

@offsets = shuffle(@offsets);

print STDERR "Done.\nWriting scrambled...";

open(IN, $ARGV[0]);
for (@offsets) {
    seek(IN, $_, 0);
    my $line = <IN>;
    $line .= $/ if $line !~ qr{$/};
    print $line;
}

print STDERR "Done.\n";