Kindle 3.2.1 Jailbreak timing hack for Mac OSX

#!/usr/bin/perl -w

$kindle = '/Volumes/Kindle/';
$kindle_test = '/Volumes/Kindle/documents/';
$jail = '/Users/FOOBAR/update_jailbreak_0.5_k3w_install.bin';

#--------------------------------

if(-f $jail)
{
    print "Jailbreak path is incorrect: $jail";
    exit;
}

my $succ = 0;
while(!$succ)
{
    if(-d $kindle_test)
    {
        print "\nCopying...";
        `cp $jail $kindle`;
        $succ = 1;
    }
    else
    {
        print ".";
    }
}
`diskutil eject $kindle -force`;
print "\n--------------------------\nMenu > DOWN * 5 > Click > Menu > DOWN * 2 > Click > Click\n";