or here's a more general solution. suppose you have the $fullpath and the start directory $startdir:

use File::Spec;
my $file = '/' . File::Spec->abs2rel($fullpath, $startdir);
[download]