Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
    $description =~ s/\'/\\\'/g;
    $sth->execute('', $name, $fileURL, $description, undef, '');
}