use CGI qw( :standard );

my $q = new CGI;
my $cut = $q->param('cut');
### work with cut here