#!/bin/perl

use AnyDBM_File;

my $fichier_BD="c:/BD/Etudiant.dbm";      #Le nom de la Base de donné

#!/usr/bin/perl -w

use Win32::OLE;

$operand1 = '10';
$operand2 = '20';

$xls_app = Win32::OLE->new

#!/usr/bin/perl -w
use Win32;

$fstype = Win32::FsType();

print "Votre Système de Fichier est: $fst

#!/usr/bin/perl -w

use Win32::NetAdmin;

$host = '';                         # Domaine

$username =

#!/usr/bin/perl -w

use Win32::NetAdmin;

$status = Win32::NetAdmin::GetUsers('', FILTER_NORMAL_ACCO

 #!/usr/bin/perl

# les deux string sont convertis en int avant la conversion
$result = "64" < "128