document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. #!/usr/bin/env perl
  2.  
  3. use strict;
  4.  
  5. ## Dos valores en el array
  6.  
  7. my @array = ("Tiempo de Tux","itimetux.com");
  8.  
  9. ## Guardamos lo que quita shift en una variable
  10.  
  11. my $variable = shift(@array);
  12.  
  13. print "$variable\\n";
');