Help for this page

Select Code to Download


  1. or download this
        open(LOCAL, ">$imgdir/$name") or print 'error';
  2. or download this
        my $filename = 
    open(LOCAL, ">$filename") or die "Could't create '$filename': $!";
  3. or download this
    use File::Copy 'copy';
my $filehandle  = $q->upload( 'uploaded_file' );
...

cp $tmpfilename => $filename;