Select Code to Download

#!/usr/bin/perl
use strict;
...
else{
    print qq{ok\n};
}

Argument "No such file or directory; The system cannot find the pa..."
+ isn't numeric in scalar assignment at c:/perl/lib/File/Path.pm line 
+152.
failed