if( param('select') and param('select') !~ /\.\./ )
{
    my $data = ...
    ...
}