$dir = $1 if $0 =~ m#/.*[\\/])\w+\.\w+$#;