Help for this page
my ($os) = grep $ostype =~ /$_/i, map quotemeta, keys %os_specific_cmd;
#!/usr/bin/perl -w package Device::MagneticTape; ... 1;