Working Code:

#! usr/bin/perl -w

$dynamic = 'D';
$nvolatile = "NV";
print ("Enter class: ");
$storage = 'D';#<STDIN>;

if(($storage eq $dynamic) || ($storage eq $nvolatile))
	{
		print("\n $storage");
		print("\n Done");
	
	}
else
	{
		print("\n $storage");
		print("\n Wrong Class");
	}