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!