my $file = $full_name;
$file =~ s!.*\\!!g;