Learn Perl - 10 Code Examples & CST Typing Practice Test

Perl is a high-level, general-purpose programming language known for its text processing capabilities, flexibility, and rich library ecosystem. It is widely used for system administration, web development, network programming, and bioinformatics.

View all 10 Perl code examples →

Perl Button Press Counter Perl Theme Toggle Perl Score Tracker Perl Simple Timer Perl Health Tracker Perl Level Tracker Perl Coin Counter Perl Ammo Tracker Perl Star Collector Perl Power-Up Timer

Learn PERL with Real Code Examples

Updated Nov 21, 2025

Introduction & Fundamentals Setup & Configuration Architecture & Deep Internals Performance & Security Development Workflow Learning & Career Growth Business & Strategy Examples

Code Sample Descriptions

Perl Button Press Counter

my $count = 0;

sub updateUI {
    my ($count) = @_;
    print "Button Count: $count\n";
}

sub buttonPress { $count++; updateUI($count); }

# Simulate actions
updateUI($count);
buttonPress();
buttonPress();

Counts button presses and prints the count to the console.

Let’s Try →

Perl Theme Toggle

my $isDark = 0;

sub updateUI {
    my ($isDark) = @_;
    print "Theme: " . ($isDark ? 'Dark' : 'Light') . "\n";
}

sub toggleTheme { $isDark = !$isDark; updateUI($isDark); }

# Simulate actions
updateUI($isDark);
toggleTheme();
toggleTheme();

Toggles between Dark and Light themes.

Let’s Try →

Perl Score Tracker

my $score = 0;

sub updateUI { my ($score) = @_; print "Score: $score\n"; }
sub increment { $score += 10; updateUI($score); }
sub decrement { $score -= 5; updateUI($score); }
sub reset { $score = 0; updateUI($score); }

# Simulate actions
updateUI($score);
increment();
decrement();
reset();

Tracks a score with increment, decrement, and reset.

Let’s Try →

Perl Simple Timer

my $time = 0;

sub updateUI { my ($time) = @_; print "Time: $time sec\n"; }
sub tick { $time++; updateUI($time); }

# Simulate actions
updateUI($time);
tick();
tick();

Counts seconds and prints elapsed time.

Let’s Try →

Perl Health Tracker

my $health = 100;

sub updateUI { my ($health) = @_; print "Health: $health\n"; }
sub damage { $health -= 20; updateUI($health); }
sub heal { $health += 10; updateUI($health); }

# Simulate actions
updateUI($health);
damage();
heal();

Tracks health with damage and healing.

Let’s Try →

Perl Level Tracker

my $level = 1;

sub updateUI { my ($level) = @_; print "Level: $level\n"; }
sub nextLevel { $level++; updateUI($level); }
sub resetLevel { $level = 1; updateUI($level); }

# Simulate actions
updateUI($level);
nextLevel();
nextLevel();
resetLevel();

Tracks game levels with increment and reset.

Let’s Try →

Perl Coin Counter

my $coins = 0;

sub updateUI { my ($coins) = @_; print "Coins: $coins\n"; }
sub collectCoin { $coins++; updateUI($coins); }
sub loseCoin { $coins--; updateUI($coins); }

# Simulate actions
updateUI($coins);
collectCoin();
collectCoin();
loseCoin();

Counts coins collected and lost.

Let’s Try →

Perl Ammo Tracker

my $ammo = 10;

sub updateUI { my ($ammo) = @_; print "Ammo: $ammo\n"; }
sub shoot { $ammo--; updateUI($ammo); }
sub reload { $ammo = 10; updateUI($ammo); }

# Simulate actions
updateUI($ammo);
shoot();
shoot();
reload();

Tracks ammo usage with shoot and reload actions.

Let’s Try →

Perl Star Collector

my $stars = 0;

sub updateUI { my ($stars) = @_; print "Stars: $stars\n"; }
sub collectStar { $stars++; updateUI($stars); }
sub loseStar { $stars--; updateUI($stars); }

# Simulate actions
updateUI($stars);
collectStar();
collectStar();
loseStar();

Counts collected stars and displays progress.

Let’s Try →

Perl Power-Up Timer

my $powerTime = 10;

sub updateUI { my ($powerTime) = @_; print "Power-Up Time: $powerTime\n"; }
sub tick { $powerTime--; updateUI($powerTime); }
sub resetPower { $powerTime = 10; updateUI($powerTime); }

# Simulate actions
updateUI($powerTime);
tick();
tick();
resetPower();

Counts down power-up duration and resets.

Let’s Try →

Frequently Asked Questions about Perl

What is Perl?

What are the primary use cases for Perl?

Text and log file parsing. System administration scripts. Web CGI scripts and backend processing. Bioinformatics and data analysis. Network programming and automation

What are the strengths of Perl?

Excellent for text and string manipulation. Rapid prototyping for scripts and utilities. Highly portable across operating systems. Large community and mature ecosystem. CPAN provides prebuilt solutions for many problems

What are the limitations of Perl?

Syntax can be complex and inconsistent. Not ideal for large-scale application architecture. Less popular in modern web/mobile stacks. Can be slower than compiled languages for heavy computation. Readability can suffer in dense one-liner code

How can I practice Perl typing speed?

CodeSpeedTest offers 10+ real Perl code examples for typing practice. You can measure your WPM, track accuracy, and improve your coding speed with guided exercises.

Learn Other Programming Languages

C React Python C++Rust TypeScript Kotlin PHP Java C#Ruby Mql Cql N1ql Cypher Gremlin Partiql Haskell Elixir Fsharp View all languages →

Learn Perl - 10 Code Examples & CST Typing Practice Test

Code Sample Descriptions

Perl Button Press Counter

my $count = 0;

sub updateUI {
    my ($count) = @_;
    print "Button Count: $count\n";
}

sub buttonPress { $count++; updateUI($count); }

# Simulate actions
updateUI($count);
buttonPress();
buttonPress();

Counts button presses and prints the count to the console.

Let’s Try →

Perl Theme Toggle

my $isDark = 0;

sub updateUI {
    my ($isDark) = @_;
    print "Theme: " . ($isDark ? 'Dark' : 'Light') . "\n";
}

sub toggleTheme { $isDark = !$isDark; updateUI($isDark); }

# Simulate actions
updateUI($isDark);
toggleTheme();
toggleTheme();

Toggles between Dark and Light themes.

Let’s Try →

Perl Score Tracker

my $score = 0;

sub updateUI { my ($score) = @_; print "Score: $score\n"; }
sub increment { $score += 10; updateUI($score); }
sub decrement { $score -= 5; updateUI($score); }
sub reset { $score = 0; updateUI($score); }

# Simulate actions
updateUI($score);
increment();
decrement();
reset();

Tracks a score with increment, decrement, and reset.

Let’s Try →

Perl Simple Timer

my $time = 0;

sub updateUI { my ($time) = @_; print "Time: $time sec\n"; }
sub tick { $time++; updateUI($time); }

# Simulate actions
updateUI($time);
tick();
tick();

Counts seconds and prints elapsed time.

Let’s Try →

Perl Health Tracker

my $health = 100;

sub updateUI { my ($health) = @_; print "Health: $health\n"; }
sub damage { $health -= 20; updateUI($health); }
sub heal { $health += 10; updateUI($health); }

# Simulate actions
updateUI($health);
damage();
heal();

Tracks health with damage and healing.

Let’s Try →

Perl Level Tracker

my $level = 1;

sub updateUI { my ($level) = @_; print "Level: $level\n"; }
sub nextLevel { $level++; updateUI($level); }
sub resetLevel { $level = 1; updateUI($level); }

# Simulate actions
updateUI($level);
nextLevel();
nextLevel();
resetLevel();

Tracks game levels with increment and reset.

Let’s Try →

Perl Coin Counter

my $coins = 0;

sub updateUI { my ($coins) = @_; print "Coins: $coins\n"; }
sub collectCoin { $coins++; updateUI($coins); }
sub loseCoin { $coins--; updateUI($coins); }

# Simulate actions
updateUI($coins);
collectCoin();
collectCoin();
loseCoin();

Counts coins collected and lost.

Let’s Try →

Perl Ammo Tracker

my $ammo = 10;

sub updateUI { my ($ammo) = @_; print "Ammo: $ammo\n"; }
sub shoot { $ammo--; updateUI($ammo); }
sub reload { $ammo = 10; updateUI($ammo); }

# Simulate actions
updateUI($ammo);
shoot();
shoot();
reload();

Tracks ammo usage with shoot and reload actions.

Let’s Try →

Perl Star Collector

my $stars = 0;

sub updateUI { my ($stars) = @_; print "Stars: $stars\n"; }
sub collectStar { $stars++; updateUI($stars); }
sub loseStar { $stars--; updateUI($stars); }

# Simulate actions
updateUI($stars);
collectStar();
collectStar();
loseStar();

Counts collected stars and displays progress.

Let’s Try →

Perl Power-Up Timer

my $powerTime = 10;

sub updateUI { my ($powerTime) = @_; print "Power-Up Time: $powerTime\n"; }
sub tick { $powerTime--; updateUI($powerTime); }
sub resetPower { $powerTime = 10; updateUI($powerTime); }

# Simulate actions
updateUI($powerTime);
tick();
tick();
resetPower();

Counts down power-up duration and resets.

Let’s Try →

Frequently Asked Questions about Perl

What is Perl?

What are the primary use cases for Perl?

Text and log file parsing. System administration scripts. Web CGI scripts and backend processing. Bioinformatics and data analysis. Network programming and automation

What are the strengths of Perl?

What are the limitations of Perl?

How can I practice Perl typing speed?

CodeSpeedTest offers 10+ real Perl code examples for typing practice. You can measure your WPM, track accuracy, and improve your coding speed with guided exercises.