my $temp = "USLetter:Plain:white:75"; my %media = ( bond => $temp, letter => $temp, plain => $temp );