import System.Environment(getArgs)

import System.Process(readProcessWithExitCode)

import System.Exit(exitWith)

main = do

args <- getArgs

(ecode,out,err) <- readProcessWithExitCode "c:\\Perl64\\bin\\perl.exe" ("C:\\Program Files\\MySQL\\scripts\\mysql_config.pl" : args) ""

if ecode == System.Exit.ExitCode.ExitSuccess

then return out

else return err

        exitWith ecode