sub is_windows_admin {
    eval { open my $fh, "> C:/windows/system32/perl_check_if_windows_admin" or die; 1; } && 1;
}

if ( is_windows_admin() ) {
    # Strut your stuff
}