Help for this page

Select Code to Download

Select or download this

#! perl
use strict;
...
print /linux/   ? "This is linux VM\n"     :
      /Windows/ ? "This is a Windows VM\n" :
                  "I have no idea what it is\n" for @array;

Select or download this

This is linux VM
This is a Windows VM
I have no idea what it is