How do I save a quicktime .mov file?

[mtrawls]

Bah! Make a web-page and then use that to download the file. Sure, it'll work, but there's a more elegant way ... I just can't resist:

# get_movie.pl
use LWP::Simple;
$movie_file = $ARGV[0] || "http://some.site/foo.mov";
$download_name = $ARGV[1] || "mov01.mov";
$movie_content = get($movie_file);

open(MOVIE,">//path//to//your//favored//download//directory//" . $download_name);
binmode MOVIE;
print MOVIE $movie_content;
# note that code is untested
# and you should always use warnings/strict!

Now you have a solution that'll work as many times as need be. Just type in movie.pl movie_url_address foo.mov and voila. No need for a two-step process once the script is done. Overkill? ... I think not!