SMB Scanning Vulnerabillity

#!/usr/bin/perl
# Author : h3ll0s
# Date 	 : 30 Maret 2012
# SMB Scanning Vulnerabillity
# Used nmap --script smb-check-vulns.nse -p445 <host>
# Spesial Thank's To : [3rr0r c0de | PasuruanCyber] [BinusHacker]
# http://www.nmap.org

use strict;

system('cls','clear');
   system('title SMB Scanning.....');

      print"\n";
      print "\t//+ + + + + + + + + + + + + + + + + +//\n";
      print "\n";;
      print "\t  =    SMB Scanning Vulnerability   =\n";
      print "\n";;
      print "\t//+ + + + + + + + + + + + + + + + + +//\n";
      print "\n";;

print "Masukkan Host : ";
chomp(my $net = <STDIN>);
my $host = $net;
print "Menunggu Proses Scan\n";
print "$host\n";
`nmap --script smb-check-vulns.nse -p445 '$host' >> hasil.txt`;
print "Selesai";