use File::Basename qw( fileparse );

$flat_file = fileparse($flat_file);