#!/usr/bin/perl use strict; use warnings; # Scalar variables my $name = "John"; my $age = 30; # Print to console print "Name: $name\n"; print "Age: $age\n"; # Get input from user print "Enter your name: "; my $user_input = <STDIN>; chomp($user_input); # Remove newline character print "Hello, $user_input!\n";