#!C:\perl\bin\perl.exe -w 
use CGI qw(:standard);
print redirect( 'http://localhost/Auco/atavancese.php' );
sub inspeccionar_datos
 {
   local (*FORM_DATA) = @_;
   local ( $request_method, $query_string, @key_value_pairs,
               $key_value, $key, $value);
  $request_method = $ENV{'REQUEST_METHOD'};
    if ($request_method eq "GET") { 
        $query_string = $ENV{'QUERY_STRING'};
    } elsif ($request_method eq "POST") {
        read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
   } else {
        &return_error (500, "Server Error",
                            " No es posible utilizar ese metodo");
   }
 
   @key_value_pairs = split (/&/, $query_string);
   foreach $key_value (@key_value_pairs) {
       ($key, $value) = split (/=/, $key_value);
        $value =~ tr/+/ /;
        $value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
     if (defined($FORM_DATA{$key})) {
           $FORM_DATA{$key} = join ("\0", $FORM_DATA{$key}, $value);
       } else {
           $FORM_DATA{$key} = $value;
       }
   }
}#!/usr/local/perl
&inspeccionar_datos (*fcalen);
$conciliacion = $fcalen{'conciliacion'};
$fecha1 = $fcalen{'fecha1'};
$fecha2 = $fcalen{'fecha2'};
$promedio = $fcalen{'promedio'};
$fecha3 = $fcalen{'fecha3'};
$fecha4 = $fcalen{'fecha4'};
$cmd = "prueba.bat $conciliacion $fecha1 $fecha2 $promedio $fecha3 $fecha4";
system($cmd);
exit(1);

chdir("C:\\windows");
system("calc.exe");

#!C:/perl/perl.exe

#!C:\perl\bin\perl.exe -w
chdir("C:\\windows");
system("calc.exe");
exit(1);