Select Code to Download

#!/usr/bin/perl

...
subdir/
../../../etc/very/dangerous
../project/

use URI::file;
my $base_uri = URI::file->new( URI::file->cwd );
...
subdir/
../../../some/other/place
../project/