my ( $file_name ) = $0 =~ m{([^/]+)$};