use My::Gui;
...

if( $opts{gui} ) {
    tie *STDOUT, 'My::Gui';
    tie *STDIN, 'My::Gui';
    async( \&My::Gui::gui )->detach;
}