#!/usr/local/bin/perl use strict; use warnings; # Check if program is being executead as root if ("$>" ne "0") { print "This program can't be executed as root\n"; exit 2 } # Get running vm's my @get_vm_list = (`xl list`); sub show_vm_list { print @get_vm_list; } my $vm_run = pop @ARGV ; my %rec_args = ( vmlist => \&show_vm_list, getdomid => \&get_dom_id, ); my $arg = shift @ARGV; if (defined $arg && exists $rec_args{$arg}) { $rec_args{$arg}->(); }