my ($action) = $0 =~ m!([^/]+)$!;