Select Code to Download

@days=qw(mon tues wed thurs fri sat sun);
@cols=qw(red orange yellow green blue indigo violet);

#! /usr/bin/perl
@days=qw(mon tues wed thurs fri sat sun);
...
    }
print "@days\n";
print "@cols\n";