open my $fIn, '<', $ARGV[0] or ...

##</code><code>##

my ($colour, $value) = split /:/, $info;