# simplified
my %g_dt = (MsWin32 => \&WinStuff,
            linux   => \&LinuxStuff,
            # and so on
           );
...
# The call
$g_dt{$^O}->(args);