package web::modify::send;
use strict;
use warnings FATAL => 'all';
no warnings 'redefine';

sub send{
        my $s = shift;
        my $op = $s->param('Submit');

        eval {
           if($op eq 'send'){
             system("./../bin/perl1.pl >> /log/file/perl1.log 2>&1 &");
           }
        };

        return;
}

1;