차단된 사이트 우회 접속하는 방법

다음 방법도 있으나 요즘은 잘 안됨.
splice(@a, 2, 0, $s);
여기서 세번째 argument인 0은 delete 할 element 의 수를 0으로 지정한 것이다. sub insertString_beforeLine
{
my $s = shift;
my $n = shift;
my @a = split(/\n/, $source);
splice(@a, $n, 0, $s);
$source = join("\n", @a);
}
for (my $i = 10; $i >= 0; $i--) {
print "$i...\n"; # Countdown
}
foreach my $i (reverse 0..10) {
print "$i...\n"; # Same
}
%hash = (dog => "lazy", fox => "quick");
foreach my $key (keys %hash) {
print "The $key is $hash{$key}.\n"; # Print out hash pairs
}