my $device = "/dev/sda";

open my $handle, '<', $device or die "open($device,ro) failed: $!";