#!/usr/bin/perl
use strict;

my ($filename, $salainen_kansio) = @ARGV;
if( not defined $salainen_kansio ) {
	print "hyväksytty toimintatapa: ./sahkotkatki.pl inputtifiletto ulostushakemisto\n";
die;
}
if( substr( $salainen_kansio, -1, 1 ) eq '/' ) {
	chop $salainen_kansio;
} 

open( my $fh, "<", $filename ) or die "eipä aukee '$filename'";

while( <$fh> ) {
	chomp;
	my $url = "https://www.sahkonumerot.fi/$_/img/large/color.jpg";
	my $output = "$salainen_kansio/$_.jpg";
	print "$url -> $output\n";
	system "wget -q -O $output $url";
}
