#!/usr/bin/perl use strict; use Config; my $os = $^O; my $config = $Config{'archname'}; print "OS -> $os\n"; print "Config -> $config\n";