Help for this page

Select Code to Download


  1. or download this
    use Data::Dumper;
    local $Data::Dumper::Useqq = 1;
    local $Data::Dumper::Terse = 1;
    print("FOUND_FILE: ", Dumper($FOUND_FILE), "\n");
    print("FN_SPLIT:   ", Dumper($FN_SPLIT  ), "\n");