Article Figure 1 Listing 1 Listing 2 Listing 3
Listing 4 Listing 5 Listing 6 Listing 7 feb2006.tar

Listing 7 Filter.pl 

#!/usr/bin/perl -w
#
# Listing 7.
# Filter.pl
#
$command=shift;

unless ($command=~ /^([-\w.\s\/\\\|]+)$/) {
       print "Security error.\n";
       exit (1);
     }