#!/usr/bin/perl -w use Config; print substr($Config{vendorarch}, 1) . "\n"; print <