Select Code to Download

                || die qq/Cannot open pid file "$self->{path}": $!\n/;
        flock($fh, LOCK_EX | LOCK_NB)
...
+       $maybe = "" unless defined $maybe;
+       my ($pid) = $maybe =~ /^(\d+)/;
        close $fh if @_ == 1;