#!/usr/bin/perl 
    
# Opening a File in Read-only mode 
open(fh, "<", "File_to_be_read.txt"); 
    
# Reading next character from the file
ch = getc(fh)
  
# Printing the read character
print"Character read from the file isch";
  
# Closing the File 
close(fh); 

#!/usr/bin/perl 
  
# Value to be entered by the user
ch = getc(STDIN);
  
# Printing the entered value
print"Value entered:ch";