I give you the first couple of lines:

#!/usr/bin/perl

use strict;
use warnings;
[download]

Feel free to drop by again after you've tried something yourself, and have more specific questions.