#!/usr/bin/perl

$url = shift @ARGV;

if ($url eq '' ||  $url !~ /smugmug\.com/i ) {
   die "Did you forget something like, say, the URL of a smugmug album?\n"
}

$album = $url ;
$album =~ s/^.*\/(\d+)$/$1/;

system "curl --silent --cookie 'Template=7;DefaultSize=Original' $url > /tmp/smug$album.html" ;

open (DUMP, "</tmp/smug$album.html");

mkdir $album;
chdir $album;

while (<DUMP>) {
   if (/Ti.jpg/) {
      s/^.+src="(.+)Ti.jpg".+$/$1O.jpg/ ;
      system "curl -O $_" ;
   }
}