I did consider to add Panda::Date until I reviewed the source code. Your code isn't thread safe and you require 5.18 to compile it, and your naïve implementation of a date with a time representation due to the broken down representation is just a wasteful! An instance of Time::Moment requires 16 bytes plus the overhead of a scalar allocation and is mostly faster than your implementation that doesn't even support a fractional representation!
As far as I checked, if you're in Linux, you could use a system call to SYS_getdents with syscall and avoid doing a stat() on the files and get their names to a list (or a text file).
After that it would be just a matter to call unlink on those names.
The downside is that I'm still trying to figure out how to use getdents with Perl. :-)
]]> @list = 2, 3, 4;
print @list; # 2;
$recipient = $_POST['recipient'];
$firstname = $_POST['firstname'];
$lastname = $_POST['lastname'];
$from = $firstname + $lastname;
$subject = $_POST['subject'];
$body = $_POST['body'];
my $email = Email::Simple->create(
header=>[To=>$recipient, From=>$from,
Subject=>$subject],
body=>$body,
);
try {
sendmail($email,
{from=>$from,
transport=>Email::Sender::Transport::Sendmail->new});
} catch {
print "Can't send mail: $_";
}
and my host (GoDaddy) returned the following error:
The specified CGI application encountered an error and the server terminated the process.
Any ideas?
]]>