http://www.perlmonks.org?node_id=359021

For tux402
my $cmd = "perl $vmPerlAPI/host/ dsbrowse.pl " ."--url https://$vmHostnam e:8333/sdk/ vimService " ."--username $vmUser " ."--password $vmPass " ."--ipaddress"; return `$cmd`;

$r->log_error(__PACKAGE__.":handler:mode = $mode"); if($mode eq 'logout') { my $target = $html_url; my $location = "http://$ENV{SERVER_NAME}$target"; $location = "http://news.bbc.co.uk/1/hi/england/default.stm"; $r->headers_out->set(Location => $location); $r->status(Apache2::Const::REDIRECT); print STDERR __PACKAGE__.":handler: [STDERR] got here OK.\n"; return Apache2::Const::REDIRECT; }