#!/usr/bin/perl

#a quick-and-dirty shuffler, indented for playlists but suitable for any text stuff...
#written by Thomas Orgis <thomas@orgis.org>; thrown in the public domain or whatever you like

use List::Util qw(shuffle);

if(@ARGV)
{
	for(shuffle(@ARGV)){ print $_."\n"; }
}
else
{
	while(<STDIN>)
	{
		push(@pl, $_);
	}
	print shuffle(@pl);
}
