#!usr/bin/perl -w 
use strict; 
my ($target); 
#A few lines later. . .
system( nmap $target);