sub parsear {
    my $input = shift;
    return ( fileparse( ... ) )[0];
}