exit Perl::Tidy::perltidy( argv => $arg_string );