Hi,
$subs{"action"} = $action;
das funktioniert nicht, ich überlege gerade warum. So sollte es klappen:
$subs{"action"} = "$action";
Wenn $ENV{"SCRIPT_FILE_NAME"} leer bleibt, kannst du auch CPAN: File::Find verwenden, um den Pfad auszulesen.
Stefan