use File::Spec; my $thefile = File::Spec->catfile('home', 'actionet', 'gallerymain', $inode0); next if -d $thefile;