open my $tokenfile, '<', $filename or die "Couldn't open file: $!";