sample a line-oriented file

diff --git a/spit_sample.pl b/spit_sample.pl
new file mode 100755 (executable)
index 0000000..69a72db
--- /dev/null
+++ b/spit_sample.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+my @lines = <>;
+
+foreach my $i ( 1..20 ) {
+    $length = scalar( @lines );
+    $idx = int rand ($length);
+    print $lines[$idx];
+    splice(@lines,$idx,1);
+}