if ( -e "$fp" ) {
    open( TF, $fp );
    while (<TF>) {
        chomp;
        $kr = $_;
    }
    close(TF);
}
else {
    $kr = 0;
}