#!/usr/bin/perl -w $found = $ARGV[0]; for ($i = 0x00; $i<=0xff; $i++) { $try = $found . chr($i); print "TRYING: $try ($i)\n"; open(CRACK, "| ./level.elf"); print CRACK $try; close(CRACK); }