# put this in line #15
# I need to registar the new class.
file=>"FileInput",


# somewhere else
package HTML::Form::FileInput;
@HTML::Form::FileInput::ISA=qw(HTML::Form::Input);
sub value 
{
    my $self=shift;
    if(@_)
    {
       my @temp=($_[0]);
       return $self::SUPER::value(\@temp);
    }
    else
    {  return $self::SUPER::value(@_); }
   

}