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