my $q    = $self->query;
  my $file = $q->param('image');
  my $FH   = $q->upload('image');
  $file =~ m/^.*(\\|\/)(.*)/;
  my $dir  = "/home/f/img";
  open( OP, ">$dir/$file" ) or die "$!";
  chmod 0777, "$dir/$file";
  binmode OP;

  my $buffer;
  my $bytesread;
  while ( $bytesread = read( $FH, $buffer, 1024 ) ) {
    print OP $buffer;
  }
  close LOCAL;