Hai just try this if u wish

my($read,$hourrate,$yearrate);

while(!defined)
{
  
  print "\nEnter y (or) h (or) q to calculate Yearly salary(y)\n or Ho
+urly rate(h) q to Quit: ";
  chomp($read=<STDIN>);

  if($read=~m#y#i)
  {
    print "\nEnter your yearly salary: ";
    chomp ($yearrate=<STDIN>);
    $hourrate=($yearrate/52)/40;
    print("\nYour salary is for per hour: $hourrate\n\n");    
  }
  elsif($read=~m#h#i)
  {
    print "\nEnter your hourly rate: ";
    chomp ($hourrate=<STDIN>);
    $yearrate=($hourrate * 40)*52;
    print("\nYour Annual salary is for per hour: $yearrate\n\n");    
  }
  elsif($read=~m#q#i)
  {
    exit;
  }
  
}
[download]