Ignore `$BASH_ENV' as it is misleading on RHEL3 `bash-2.05b-41.7.i386'.
[nethome.git] / bin / shuffle
1 #! /usr/bin/perl
2 # $Id$
3
4 use strict;
5 use warnings;
6
7 print splice(@ARGV,int(rand(@ARGV)),1)."\n" while @ARGV;