#!/usr/bin/perl
$binario = join('', unpack('B*', "\x191"));
print "$binario\n";
 

#!/usr/bin/perl
print "Introduce el numero hexadecimal que deseas pasar a binario:";
$binn = <STDIN>;
$binario = join('', unpack('B*', "\x$binn"));
print "El numero binario es: $binario\n";

#!/usr/bin/perl
print "Introduce b* si deseas binario ascendente, introduce B* si deseas binario descendente:";
$bin = <STDIN>;
print "Introduce el numero hexadecimal que deseas pasar a binario:";
$binn = <STDIN>;
$binario = join('', unpack("$bin", "\x$binn"));
print "El numero binario es: $binario\n";

#!/usr/bin/perl
sub nombre_de_la_subrutina
{
(sentencia)
}
 

#!/usr/bin/perl
sub erik
{
print "Hola\n";
}
&erik;
print "Adios";
 

#!/usr/bin/perl
sub erik
{
print "Hola\n";
}
erik();
print "Adios";
 

#!/usr/bin/perl
if(condicion)
{
(sentencia)
}

#!/usr/bin/perl
$erik = "Administrador";
if($erik == "Administrador")
{
print "Correcto, erik, es administrador";
}

#!/usr/bin/perl
if(condicion)
{
(sentencia)
}
else {
(sentencia)
}

#!/usr/bin/perl
$erik = "Usuario";
if ($erik == "Administrador")
{
print "Correcto es administrador";
}
else {
print "Correcto es usuario";
}

#!/usr/bin/perl
if(condicion)
{
(sentencia)
} 
elseif(condicion) {
(sentencia)
}
else {
(sentencia)
}

#!/usr/bin/perl
@admins = ("Erik", "Eriks", "Otros...");
print "Los admins son: ";
foreach $admins (@admins)
{
 print $admins;
}

#!/usr/bin/perl
@admins = ("Eriks", "Erik", "Otros...");
print "Los admins son: ";
foreach $admins (sort @admins)
{
 print $admins;
}

while (condicion)
   {
      (sentencia que se cumple)
   }

#!/usr/bin/perl
$erik = 1;
while($erik <=50)
{
print "Este es el mensaje numero $erik\n";
$erik++;
}

for (valor de variable; condicion; expresion de control)
{
(sentencia)
}

#!/usr/bin/perl
for ($erik=1;$erik<10;$erik++)
{
print "Este es el numero $erik";
}

#!/usr/bin/perl
   for ($erik=1;$erik<10;$erik++)
   {
     if ($erik==5) #Cuando llegue a 5
     {
       next; #pasa al 6
     }
     print "$erik\n";
   }
 

#!/usr/bin/perl
for(;;)
{
 print "You are Fucked!\n";
}
 

#!/usr/bin/perl
system("dir");

 El volumen de la unidad C es PRESARIO
 El n?mero de serie del volumen es: DC5F-B9AA

 Directorio de C:\

16/05/2008  14:39    <DIR>          AppServ
03/08/2008  10:40    <DIR>          Archivos de programa
03/08/2008  12:44             5.384 area.pl
02/08/2008  16:36                 2 AUTOEXEC.BAT
03/08/2008  19:03                34 backdoorbyerik.pl
29/11/2004  21:53                 0 CONFIG.SYS
10/01/2008  22:09    <DIR>          Dev-Cpp
03/08/2008  12:39             1.672 erikcgi.pl
25/06/2008  15:16    <DIR>          Documents and Settings
02/08/2008  17:33                 0 Exploit.pl
03/08/2008  12:39             1.672 explorar.pl
03/08/2008  12:39                 0 fake.pl
21/04/2008  13:57    <DIR>          Fraps
01/07/2008  15:13            20.480 KrewsCode X - Unban ID.exe
09/05/2008  23:56    <DIR>          midi
07/04/2008  14:22    <DIR>          My Music
06/07/2008  20:19    <DIR>          NVIDIA
13/12/2007  21:26    <DIR>          passwordbas
01/08/2008  12:18    <DIR>          pb
30/07/2008  20:20    <DIR>          Perl
12/06/2008  13:48    <DIR>          Program Files
30/07/2008  19:00                41 prueba.pl
30/07/2008  20:41    <DIR>          Python25
28/07/2008  23:53               407 pythong.cfg
28/07/2008  23:49            21.457 pythong.html
24/03/2008  20:38    <DIR>          ruby
25/03/2008  20:31    <DIR>          rubyprogram
17/09/2007  18:14    <DIR>          Setup
10/10/2007  08:45    <DIR>          sp3v
01/05/2008  00:18    <DIR>          TCWIN
01/07/2008  01:05    <DIR>          Temp
25/06/2008  15:20    <DIR>          USERDATA
03/08/2008  17:40    <DIR>          WINDOWS
              12 archivos         51.149 bytes
              21 dirs  74.581.889.024 bytes libres

#!/usr/bin/perl
system("dir > sistema.txt");

#!/usr/bin/perl
print "Hola, buenos dias, que tal esta?\n";
system("pause");
print "et voila";
system("pause>nul");

#!/usr/bin/perl
opendir (DIRECTORIO, "/");
foreach $nombre (readdir(DIRECTORIO))
{
print "$nombre\n";
}
closedir(DIRECTORIO);

#!/usr/bin/perl
   $zona= "/.";
   $directorio= chdir $zona;

#!/usr/bin/perl
use Cwd;
print getcwd();
 

#!/usr/bin/perl
mkdir "Nombre del directorio", 775;
 

#!/usr/bin/perl
rmdir "Nombre del directorio";

#!/usr/bin/perl
close ("archivo.txt");

#!/usr/bin/perl
open(rundll32.exe, "|c:\\Windows\\");

#!/usr/bin/perl
open(LISTAR, "|dir");
$listar = ();
print $listar;
close $listar;
 

#!/usr/bin/perl
close (Proceso);

#!/usr/bin/perl
rename ("archivo.txt", "supermegaarchivo.txt");

sysopen (REFERENCIA, "archivo que abrimos", MODO DE APERTURA, PERMISOS)

#!/usr/bin/perl
sysopen (ARCHIVO, "archivo.txt", O_WRONLY | O_CREAT);

#!/usr/bin/perl
sysopen (ARCHIVO, "archivo.txt", O_WRONLY | O_CREAT,0666);

#!/usr/bin/perl
print "?Como te llamas?:";
$nombre = <STDIN>;
print "?Cuantos a?os tienes?:";
$edad = <STDIN>;
print "Te llamas $nombre y tienes $edad a?os.";