すいません、完璧にプログラム初心者なんですが
これはどういう意味でしょうか?

my ($ip, $day) = @ARGV;
$ip = substr($ip, 8);
my $pass = crypt($ip * $ip, sprintf('%02d', $day));
print substr($pass, -8), "\n";

分かる人がいたら教えてください。それとも、他の場所で聞いた方がいいですかね。