#!/usr/bin/perl use strict; my $host = 'localhost'; # Use 1 of the following lines: #my $output = eval($ARGV[0]); my $output = $ARGV[0]; print "COMMAND: $output\n"; system($output);