C:\>perl -c
#!/usr/bin/perl

use warnings;
use strict;

$^O eq "MSWin32" ? system("deltree Pfad") : system("rm -rf Pfad");

1;
^Z
- syntax OK

C:\>