Select Code to Download

#!/usr/bin/env perl

...
    my $xbm_file = $indexed_name . '.xbm';
    return path($dir, $xbm_file);
}