Perl - Directiva Windows Linux

Que tal tropa, tengo una duda de directivas les explico:

Soy nuevo en perl y estoy haciendo un script que permita el borrado de unos logs, pero la cosa es que este haga distincion entre windows y linux, cuando sea windows que busque en una ruta y cuando sea Linux busque en otra.

***** CODIGO *****

#!/usr/bin/perl -w

use strict;

my $RutaW='C:\Logs';

if (-d $Ruta){
print "La ruta: $RutaW Existe =). Listando archivos ... \n\n";
opendir(DIR,$RutaW) || die "No puedo abrir: $RutaW: $!";

while (my $Arch = readdir(DIR)){
next if ($Arch =~ m/^\./);
print "$Arch\n";
}
closedir(DIR);

}else{
print "La ruta: $RutaW NO existe =(";
}

exit 0;

De antemano gracias

Puedes usar la variable especial $^O, que guarda el nombre del sistema operativo en donde se encuentra el Perl.

PerlEnEspanol.com