Select Code to Download

my $test = shift;  # we want a binary "tape" of 1s and 0s as the arg

...
    die "Your input was: $test\nGive a string (tape) of zeros and ones
+ only!\n";
}
my @test_queue = split '', $test; # turn string into queue/array

c:\Documents and Settings\1\My Documents\perl\dfa\simple>code.pl 0
code.pl 0
Your input was: 0
Give a string (tape) of zeros and ones only!