#!/usr/bin/perl

use CGI qw(:standard);
use strict;

my $cgi = new CGI;
print $cgi->header();

my @values  = $cgi->param('option[]');
foreach (@values) {
        my $command=`rm -r /media/dde/video/$_`;
        print $command;
 }
#$cgi->redirect( -location=>"train1.htm");