use File::Basename;
my $thebase = dirname($file);
$thebase = dirname($thebase).'/default' unless -e $file;