Training, Open Source computer languages
PerlPHPPythonMySQLApache / TomcatTclRubyJavaC and C++LinuxCSS 
Search for:
Home Accessibility Courses Diary The Mouth Forum Resources Site Map About Us Contact
Python, Lua and Tcl - public course schedule [here]
Private courses on your site - see [here]
Please ask about maintenance training for Perl, PHP, Java, C, C++, Ruby, MySQL and Linux / Tomcat systems
How to download files in Perl

Posted by padawanlinuxero (padawanlinuxero), 27 December 2007
Hello !!!!
I have a script that needs help, I need to display some files from a folder and be able to download them with a simple link, if the link is click then it must appear the Save As screen, but until now only I have been able to open the folder and view the files like links but I can not download them
this is the code unitl now:


use strict;
use CGI;

my $list = new CGI;

my $fileDir = "c:/files/err";
my @files;

opendir DIR, "$fileDir" or die "Can't open $fileDir $!";
   @files = grep { /\.(?:txt|zip|jpg|mp3|err|csv)$/i } readdir DIR;
closedir DIR;

print $list->header("text/html"),
     $list->start_html("Archivos in $fileDir"),
     $list->p("Estos son los archivos de $fileDir");

foreach my $file (@files) {
   print $list->p($list->a({-href=>$fileDir."/".$file},$file)
print $list->end_html;

Posted by KevinAD (KevinAD), 27 December 2007
The CGI module has support for what you are trying to do. Look for the -attachment and -type options in the CGI module documentation under the CREATING A STANDARD HTTP HEADER: section. If you have further questions post them.

This page is a thread posted to the opentalk forum at and archived here for reference. To jump to the archive index please follow this link.

You can Add a comment or ranking to this page

© WELL HOUSE CONSULTANTS LTD., 2018: Well House Manor • 48 Spa Road • Melksham, Wiltshire • United Kingdom • SN12 7NY
PH: 01225 708225 • FAX: 01225 793803 • EMAIL: • WEB: • SKYPE: wellho