Help for this page
#!/usr/bin/perl -w ... } print $temps[$index];
#!/usr/bin/perl -w use strict; ... } print $temps[$index];